<?php
/**********************************************************************
	Copyright (C) FrontAccounting, LLC.
	Released under the terms of the GNU General Public License, GPL, 
	as published by the Free Software Foundation, either version 3 
	of the License, or (at your option) any later version.
	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
	See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
function add_gl_account($account_code, $account_name, $account_type, $account_code2)
{
	$sql = "INSERT INTO ".TB_PREF."chart_master (account_code, account_code2, account_name, account_type)
		VALUES (".db_escape($account_code).", ".db_escape($account_code2).", "
			.db_escape($account_name).", ".db_escape($account_type).")";

	return db_query($sql);
}

function update_gl_account($account_code, $account_name, $account_type, $account_code2)
{
	$sql = "UPDATE ".TB_PREF."chart_master SET account_name=".db_escape($account_name)
	.",account_type=".db_escape($account_type).", account_code2=".db_escape($account_code2)
		." WHERE account_code = ".db_escape($account_code);

	return db_query($sql);
}

function delete_gl_account($code)
{
	$sql = "DELETE FROM ".TB_PREF."chart_master WHERE account_code=".db_escape($code);

	db_query($sql, "could not delete gl account");
}

function get_gl_accounts($from=null, $to=null, $type=null)
{
	$sql = "SELECT ".TB_PREF."chart_master.*,".TB_PREF."chart_types.name AS AccountTypeName
		FROM ".TB_PREF."chart_master,".TB_PREF."chart_types
		WHERE ".TB_PREF."chart_master.account_type=".TB_PREF."chart_types.id";
	if ($from != null)
		$sql .= " AND ".TB_PREF."chart_master.account_code >= ".db_escape($from);
	if ($to != null)
		$sql .= " AND ".TB_PREF."chart_master.account_code <= ".db_escape($to);
	if ($type != null)
		$sql .= " AND account_type=".db_escape($type);
	$sql .= " ORDER BY account_code";

	return db_query($sql, "could not get gl accounts");
}

function get_gl_account($code)
{
	$sql = "SELECT * FROM ".TB_PREF."chart_master WHERE account_code=".db_escape($code);

	$result = db_query($sql, "could not get gl account");
	return db_fetch($result);
}

function is_account_balancesheet($code)
{
	$sql = "SELECT ".TB_PREF."chart_class.ctype FROM ".TB_PREF."chart_class, "
		.TB_PREF."chart_types, ".TB_PREF."chart_master
		WHERE ".TB_PREF."chart_master.account_type=".TB_PREF."chart_types.id AND
		".TB_PREF."chart_types.class_id=".TB_PREF."chart_class.cid
		AND ".TB_PREF."chart_master.account_code=".db_escape($code);

	$result = db_query($sql,"could not retreive the account class for $code");
	$row = db_fetch_row($result);
	return $row[0] > 0 && $row[0] < CL_INCOME;
}

function get_gl_account_penjualan()
{
	$sql = "SELECT * from chart_master m where m.account_code LIKE '41%'";
	return db_query($sql,'Tidak bisa mengambil account penjualan');
}

function get_gl_hpp_details()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^6[1-4]'";
	return db_query($sql,'Tidak bisa mengambil account hpp');
}

function get_gl_activa()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^1'";
	return db_query($sql,'Tidak bisa mengambil account activa');
}

function get_gl_kas()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^111[1-9]'";
	return db_query($sql,'Tidak bisa mengambil account activa');
}

function get_gl_investasi_pendek()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^112[1-9]'";
	return db_query($sql,'Tidak bisa mengambil account investasi jangka pendek');
}

function get_gl_piutang()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^113[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account piutang');
}

function get_gl_supplies()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^114[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account piutang');
}

function get_gl_persediaan()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^115[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account piutang');
}

function get_gl_uang_muka()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^116[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account uang muka');
}

function get_gl_investasi_panjang()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^12[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account investasi panjang');
}

function get_gl_tanah()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^131[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account tanah');
}

function get_gl_gedung()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^132[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account gedung');
}

function get_gl_perabot_kantor()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^133[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account perabot kantor');
}

function get_gl_kendaraan()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^134[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account kendaraan');
}

function get_gl_mesin_produksi()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^135[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account mesin produksi');
}

function get_gl_utang()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^2'";
	return db_query($sql,'Tidak bisa mengambil account utang');
}

function get_gl_modal()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^31[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account modal');
}

function get_gl_prive()
{
	$sql = "SELECT * from chart_master m where m.account_code REGEXP '^32[0-9]'";
	return db_query($sql,'Tidak bisa mengambil account modal');
}

function get_gl_beban_pemasaran()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^6[5-9]'";
	return db_query($sql,'Tidak bisa mengambil account beban pemasaran');
}

function get_gl_beban_adm_umum()
{
    $sql = "SELECT * from chart_master m where m.account_code REGEXP '^7'";
	return db_query($sql,'Tidak bisa mengambil account beban pemasaran');
}

function get_laba_rugi($from,$to)
{
    $total_laba_kotor = 0.0;
    $penjualan = 0.0;
    $return_penjualan = 0.0;
    $hpp = 0.0;
    $hpp_details = 0.0;
    $total_laba_bersih = 0.0;

    $penjualan = -(get_gl_balance_from_to($from, $to, '41100', 0, 0));

    $return_penjualan = get_gl_balance_from_to($from, $to, '42100', 0, 0);

    $hpp = get_gl_balance_from_to($from, $to, '51000', 0, 0);

    $total_laba_kotor += $penjualan - $return_penjualan - $hpp;

    $penjualan = -(get_gl_balance_from_to($from, $to, '41200', 0, 0));

    $return_penjualan = get_gl_balance_from_to($from, $to, '42200', 0, 0);

    $hpp = get_gl_balance_from_to($from, $to, '52000', 0, 0);

    $total_laba_kotor += $penjualan - $return_penjualan - $hpp;

    $penjualan = -(get_gl_balance_from_to($from, $to, '41300', 0, 0));

    $return_penjualan = get_gl_balance_from_to($from, $to, '42300', 0, 0);

    $hpp_account = get_gl_hpp_details();
    $hpp = 0;
    while ($myrow = db_fetch($hpp_account))
    {                          
        
        $hpp_details = get_gl_balance_from_to($from, $to, $myrow['account_code'], 0, 0);
        $hpp += $hpp_details;       
    }   
	
    $total_laba_kotor += $penjualan - $return_penjualan - $hpp;

    $beban_pemasaran = 0.0;
    $total_beban_pemasaran = 0.0;
    $beban_pemasaran_account = get_gl_beban_pemasaran();
    while ($myrow = db_fetch($beban_pemasaran_account))
    {

        $beban_pemasaran = get_gl_balance_from_to($from, $to, $myrow['account_code'], 0,
            0);
        $total_beban_pemasaran += $beban_pemasaran;

    }

    $beban_adm_umum = 0.0;
    $total_beban_adm_umum = 0.0;
    $beban_adm_umum_account = get_gl_beban_adm_umum();
    while ($myrow = db_fetch($beban_adm_umum_account))
    {

        $beban_adm_umum = get_gl_balance_from_to($from, $to, $myrow['account_code'], 0,
            0);
        $total_beban_adm_umum += $beban_adm_umum;

    }

    $total_penghasilan_lain = -(get_gl_balance_from_to($from, $to, '41900', 0, 0));

    return $total_laba_kotor - $total_beban_pemasaran - $total_beban_adm_umum +
        $total_penghasilan_lain;
}

function get_gl_account_name($code)
{
	$sql = "SELECT account_name from ".TB_PREF."chart_master WHERE account_code=".db_escape($code);

	$result = db_query($sql,"could not retreive the account name for $code");

	if (db_num_rows($result) == 1)
	{
		$row = db_fetch_row($result);
		return $row[0];
	}

	display_db_error("could not retreive the account name for $code", $sql, true);
}

function gl_account_in_company_defaults($acc)
{
	$sql= "SELECT COUNT(*) FROM ".TB_PREF."sys_prefs WHERE (name='debtors_act' 
		OR name='pyt_discount_act'
		OR name='creditors_act' 
		OR name='bank_charge_act' 
		OR name='exchange_diff_act'
		OR name='profit_loss_year_act'
		OR name='retained_earnings_act'
		OR name='freight_act'
		OR name='default_sales_act' 
		OR name='default_sales_discount_act'
		OR name='default_prompt_payment_act'
		OR name='default_inventory_act'
		OR name='default_cogs_act'
		OR name='default_adj_act'
		OR name='default_inv_sales_act'
		OR name='default_assembly_act') AND value=".db_escape($acc);
	$result = db_query($sql,"Couldn't test for default company GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_stock_category($acc)
{
	$acc = db_escape($acc);

	$sql= "SELECT COUNT(*) FROM ".TB_PREF."stock_category WHERE 
		dflt_inventory_act=$acc 
		OR dflt_cogs_act=$acc
		OR dflt_adjustment_act=$acc 
		OR dflt_sales_act=$acc";
	$result = db_query($sql,"Couldn't test for existing stock category GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_stock_master($acc)
{
	$acc = db_escape($acc);

	$sql= "SELECT COUNT(*) FROM ".TB_PREF."stock_master WHERE 
		inventory_account=$acc 
		OR cogs_account=$acc
		OR adjustment_account=$acc 
		OR sales_account=$acc";
	$result = db_query($sql,"Couldn't test for existing stock GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_tax_types($acc)
{
	$acc = db_escape($acc);

	$sql= "SELECT COUNT(*) FROM ".TB_PREF."tax_types WHERE sales_gl_code=$acc OR purchasing_gl_code=$acc";
	$result = db_query($sql,"Couldn't test for existing tax GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_cust_branch($acc)
{
	$acc = db_escape($acc);

	$sql= "SELECT COUNT(*) FROM ".TB_PREF."cust_branch WHERE 
		sales_account=$acc 
		OR sales_discount_account=$acc
		OR receivables_account=$acc
		OR payment_discount_account=$acc";
	$result = db_query($sql,"Couldn't test for existing cust branch GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_suppliers($acc)
{
	$acc = db_escape($acc);

	$sql= "SELECT COUNT(*) FROM ".TB_PREF."suppliers WHERE 
		purchase_account=$acc
		OR payment_discount_account=$acc
		OR payable_account=$acc";
	$result = db_query($sql,"Couldn't test for existing suppliers GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_quick_entry_lines($acc)
{
	$acc = db_escape($acc);

	$sql= "SELECT COUNT(*) FROM ".TB_PREF."quick_entry_lines WHERE 
		dest_id=$acc AND UPPER(LEFT(action, 1)) <> 'T'";
	$result = db_query($sql,"Couldn't test for existing Quick Entry Line GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}

function gl_account_in_bank_accounts($acc)
{
	$sql= "SELECT COUNT(*) FROM ".TB_PREF."bank_accounts WHERE 
		account_code=".db_escape($acc);
	$result = db_query($sql,"Couldn't test bank account GL codes");

	$myrow = db_fetch_row($result);
	return ($myrow[0] > 0); 
}
?>